% This file creates Figure 5d and saves it as Figure_5d.eps in
% \Replication_files\Figures\

clear
cd ../mat_files
load('fig5d_data.mat');

[~,L]=size(correlations);
fig5d=figure;
hold on
box('on');

for i=1:L
     C=(L-i)*[1 1 1]./(L+8);
    plot(-8:1:8,correlations(:,i),'LineWidth',0.5,'Color',C)
end
plot(-8:1:8,zeros(1,17),'--k','LineWidth',0.5);
ylim([-1 -0.25]);
xlim([-8 8]);
y1=get(gca,'ylim');
plot([0 0],y1,'--k','LineWidth',0.5);
xlabel('Lead/Lag of Markup','FontSize',11,'FontWeight','normal');
ylabel('Correlation with Output','FontSize',11,'FontWeight','normal');

fig5d.PaperUnits='inches';
fig5d.PaperPosition=[0 0 3.5 2.5];

cd ../Figures
print('Figure_5d','-depsc','-tiff')
cd ../m_files

